home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_09 / xmpl_01.sx next >
Encoding:
Text File  |  1996-05-21  |  655 b   |  34 lines  |  [TEXT/R*ch]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 9, example 1
  5.  
  6. module DefinitionModule
  7.     exports FirstClass, aGetter, bGetter, cGetter,
  8.         aSetter, bSetter, cSetter, sumThem
  9.     uses ScriptX
  10. end
  11.  
  12. module testingModule
  13.     uses ScriptX, DefinitionModule
  14. end
  15.  
  16. in module DefinitionModule
  17. class FirstClass ()
  18.     instance variables a, b, c
  19.     instance methods 
  20.         method init self #rest args #key a:(10) b:(10) c:(10) -> (
  21.             apply nextMethod self args
  22.             self.a := a
  23.             self.b := b
  24.             self.c := c
  25.         )
  26.         method sumThem self -> (
  27.             print (self.a + self.b + self.c)
  28.         )
  29. end
  30.  
  31. in module TestingModule
  32. global t := new FirstClass a:20
  33. sumThem t
  34. -->>>